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update calculation 1b-se sen- 1984 9: 35: 1g AX-11 Blisg-32 V4.0-74 


14-Sep-1 
ZTITLE ‘Minimal update calculation’ 
MODULE SMGSMIN 
joent = '1-016' ! File: SMGMIN.B32 Edit:STAN1016 
= 
BEGIN 


RSE EILSLLLSLI ISITE TTT TTT TTP e ricci tiie r iii iit iii i iii i ii iii iii iiiiiity 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITA L EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
2 
& 
. ® 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
* 
7 
® 
® 
® 
* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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SMGRTL.SRCJSMGMIN.B32; 
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i FACILITY: Screen Management 


ABSTRACT: 


This module contains routines which inspect two screen 
representations and calculate the near-minimal sequence of 
terminai commands to change the current contents of the screen 
to the new representation of the screen. 


i 
i 
i 
i 
i 
i 
i 
i 
' 
ENVIRONMENT: User mode, SMG package. 
1 

i 
i 
i 
i 
| 

i 
ie 


AUTHOR: Srantey Rebinostss REATION DATE: 1-May-1983. 
y 


FIND_MIN_CURSOR_POS is b 


MODIFIED BY: 


1-916 = STAN 6=Jun-1984. Change error messages in MSG$S 


RKR. 


ET_PHYSICAL_ CURSOR. 
- STAN, 11-May-1983. Initial version, mimicked SCRMIN.B32. 
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date calculation 


Declarations 


SSBTTL *Declarations' 
SWITCHES: 

NONE 
LINKAGES: 

NONE 
TABLE OF CONTENTS: 


FORWARD ROUTINE 


; INCLUDE FILES 


REQUIRE ‘RTLIN:SMGPROLOG'; 
REQUIRE ‘RTLIN:STRLNK.REQ'; 


EXTERNAL REFERENCES 


EXTERNAL ROUTINE 
SMGSSOUTPUT; 


'¢ 


SOUTPUT_STRING 


MACRO 
SOUTPUT_STRING(LEN,ADDR,ATTR) = 


BEGIN 
EXTERNAL ROUTINE SMGSS$PUT_SCREEN; 
ADOR,0,0,ATTR); 


LOCAL STATUS; 


STATUS=SMG$SPUT_SCREEN(PBCB,LEN 
IF NOT .STATUS THEN RETURN .STA 


END 
z; 


'¢ 


i 
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=$p-198¢ 19:00:58 ESMantussne SsmemINn:032: ewe 


Move physical cursor on screen 
Output minumal update sequence 
Gutput minimum cursor sequence 
Update physical fyrser position 
Erase to end-of-Line 

Generate general set-cursor 
positioning sequence. 


defines psects, macros, structures, 
terminal symbols 
JSB Linkages 
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Gate calculation 18-sep-1964 90:38:18 AX-11 Oh reacae v4.0 


SMGRTL.SRCJSMGMIN. 835 

1 $L 
i Macro $L Linser tags a two dimensional suber tot formed by a 1-based 
! row number and a i=-based column number, into a single 0-based 
subscript. 
MACRO 

$L (ROW yee COLUMN_NUMBER) = 

(ROW _NUMBER=1)*.NUM_COCS + COLUMN_NUMBER -1 %; 
14 
SMAKE _ROW_COL 


! Macro SMAKE_ROW_COL takes as an input a O-based Linear index into 
' and orrey and converts it into a 1=based row and 1-based column 

! form. INDEX needs to be re-expressed as a quadword for use in the 
i. EDIV instruction. 


MACRO 
SMAKE _ROW_ coL ( INDEX, ROW_NUMBER, COLUMN_NUMBER) = 
BEGIN ! MAKE _ROW_COL™ 
BUILTIN 
EDIV; 
LOCAL 


wae ih 

LOCA L ND ES : VECTOR C2, LONG); 
LOCAL. INDEX x bh = = 0; ! Second Longword is always 0 
LOCAL-INDEX [0] = .INDE 
WIDTH= .NUM_ COLS; ! Stace width in longword 


EDIV ¢ WIDTH, Loca, INDEX, ROW NUMBER, COLUMN_NUMBER) ; 
ROW NUMBER = .R ‘ 


W_N 
COLOMN NUMBER = -COLUAN NUMBER + 1; 
END; ! MAKE_ROW_COL 
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SSOUTPUT MINIMAL _UPDATE = 
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ZSBITL Cal 
GLOBAL ROUTINE SMGSSOUTPUT_MINIMAL_UPDAT 


FUNCTIONAL DESCRIPTION: 
This routine compares CURR_TEXT and CURR_ATTR (which petlecs 


whas is current ly on the screen), with NEW_TEXT and NEW_ATT 
(which reflect what should be on the screen) and calculates a 


1 

1 
SM culate minimum update sequence’ 
— (P_PBCB) = 


—]—]35900 O35 


WOOO w—- 


sequences of characters which when output to the screen changes 
the current screen contents to reflect the new (desired) screen 


DONO ULS WO” 


contents. These characters are actually output to the screen. 


$0U 
; 14 1 
a. 1 
-.3 i 
5 7 1! 
3 3 1: 
3 4 1} 
5 1! 
.°.7 141! 
3; 7 7 
= 218 . 7 
a 417 1! 
; 160 418 1! 
3 19) r} : CALLING SEQUENCE: 
; 188 r 1 : ret_status.wlc.v = SMGSSMINIMUM_UPDATE ( P_PBCB.rab.r) 
; 165 4 : 1! 
3 198 424 1! 
3 He be 5 : P_PBCB,rab.r Address of pasteboard control block 
: 169 04 § 1! IMPLICIT INPUTS: 
; 170 428 1! 
3; 7 Be 7 3% Contents of PBCB and WCB 
: We 430 1! 
3; VW 0431 1 =! IMPLICIT OUTPUTS: 
3: 174 04 ; 4 
3 if? 04 Z : Internal buffers change. 
; 179 435 1 ! COMPLETION STATUS: 
: 178 04 § 1! 
3 +4 ti : SS$_NORMAL Normal successful completion 
3; 6181 $639 1 ! SIDE EFFECTS: 
3 13 0440 1! 
; 18 0441 1! NONE 
; 184 0442 1 !- 


4 

SMGSMIN Minimal update calculation 1b-5e -1984 00:52:1 AX-11 Bliss-32 V4.0-742 Page 6 
note SMOSSOUTPDT MINIMAL UPDATE = Calculate mininun 1ecSepeloee 44:09:58  ESMGRTL SReTSHeMIN-o3274 “an 
> 186 443 2 BEGIN st 
; 187 444 . 4 
; 1a8 445 BUILTIN A 
s 109 rr st 
+ 190 Ree CMPC3; : 
; «(191 t¢8 a4 
; 136 Bee BIND = 
: 192 eS PBCB P_PBCB BLOCKC BYTE] } 
; 6395 bce8 wCB = .PBC EPBCB_A wCB) : BLOCKL,BYTEJ, ; | 
; 196 045 NUM_ROWS = WCB WCB _WINO_ROWS) : WORD, : | 
3 197 O28 NUM_COLS = WCBCWCB-W-NO-COLS : WORD Tf 
: 198 0455 CUR-TEXT = ,WCBCWCB-A-SCR_TEXT_BUF : VECTORE BYTE), ; | 
; 199 Be 28 CUR_ATTR = ,WCBLWCB_A_SCR_ATTR_BUF : VECTORL BYTEJ, : | 
; $00 045 NEW_TEXT = ,WCB ts ae : VECTOR BYTE. "ee | 
; 201 o638 NEW_ATTR = .WCBCWCB_A_ATTR_BUF : VECTORC,BYTE), st 
: 208 459 NEW-LCV = ,WCBCWCB_A_LINE CHAR] : VECTORE,BYTEJ, : | 
; 20 0460 CUR_LCV = ,WCBCWCB_A_SCR_CINE CHAR] VECTORL ,BYTEJ, | 
H soe 0461 OLD_CURSOR_ROW = WCBLWCB_W_OLD_CUR_ ag WORD, 2 ( 
3 6402 Bees OLD_CURSOR_ COL = WCBLWCB_W_OLD CUR COL WORD, ge | 
; 206 046 é NEW-CURSOR-ROW = WCBCWCB~W-CURR_CUR_ROW WORD, 1 
; 207 0464 NEW CURSOR_COL = WCBLWCB_W_CURR_CUR_COL : WORD, sf 
; 208 0465 zE = WCBCWCB-L-BUFSTZE) ! Size of buffers e 4 
3 209 0466 FIRST_ROW = PBCBCPBCB-W_FIRST.CHANGED_ROW) : WORD, Ss 
; £10 0467 LAST_ROw = PBCBCPBCB_W_LAST_ CHANGED ROW] : WORD, Ae | 
‘ee 4h 0468 FIRST_COL = PBCBCPBCB_W_FIRST_ CHANGED sos : WORD, a | 
; 212 0469 § LAST_CTOL = PBCBCPBCB_W_LAST CHANGED_COLJ : WORD, 2 | 
; 13 0470 TERM TYPE = PBCBCPBCB_B-DEVTYPE) : BYTE; - | 
; 315 047 LOCAL s 
: 16 047 re | 
; g17 0474 STATUS, ! Status to return to caller : 
; 218 0475 2 INDEX, ' Working index into the buffers £E 
3 219 0476 ‘ ! Working row number a4 
; 220 0477 coL, ! Pork ing column number 5. 4 
: $1 0478 LEN, ' Local Cength 3 
3; 222 0479 2 ADJUSTED_COL, _! Wide Line adjusted column number a4 
s ges 0480 CUR_TEXT_PTR : REF VECTOR C,BYTEJ, ! Current pointer into s ( 
3 $Se 0481 ' current text buffer 
s 225 Beas CUR_ATTR_PTR : REF VECTOR C,BYTEJ, ! Current pointer into ee 
; 226 048 ' current attribute buffer 3s 
3 $50 0484 NEW_TEXT_PTR : REF VECTOR C,BYTE], ! Current pointer into new mica 
; 228 0485 ' text buffer go 4 
3 $3 Be86 NEW_ATTR_PTR : REF VECTOR C,BYTE], ! Current pointer into new 4 
; 0 048 ! attribute buffer hy | 
eee +) rt 14 END_ROW_INDEX, ! Index to Last character in current row 4 
; 35 048 RENDITION ' Local rendition 3 
; 23 490 F INAL_ INDEX, ' Local index representing end of a changed sequence A 
3; 234 491 URSOR_ROW, ' Current cursor row s 
gee +3 CURSOR_COL, ! Current cursor column a1 
; 39 49% NEW_CHARS_LEFT, 
; 238 495 CHARS_LEFT; ' Number of characters left to be inspected. 
3; 239 49 ! Starts out equal to number of characters 
: 240 49 ! in the four buffers. 

| 

| 


MGSMIN Minimal update calculation 1b-se AX-11 s$-32 V4.0-74 Page 7 
ett SMGSSOUTPUT MINIMALUPDATE = Calculate minimum Jacgeo-1986 $o:09;48  FenGrte Sat ismamync oso, 9 6) 
; 26 49 rr 
3 tg 138 ' If CTRL/O was typed th yey sone ye has returned we 
> 264 200 i that success status and our CTRL/ 0 bit s set. We don 
> 245 1 ! really know what the screen looks Like HY so we 
5 re 0308 ‘ clear out the screen buffer. 

: 248 504 

3 49 505 IF_.PBCBCPBCB_V_CONTROLOJ 

s 250 5 $ BEGIN —! Clear screen buffer 

; 21 5 CHSFILL(O, .SIZE,CUR_TEXT); 

3 ¢ 508 FIRST_ROW=1; 

$ 5 2 9 FIRST COL=1; 

: 254 10 LAST_ROW =.NUM_ROWS; 

; 55 511 LAST COL =.NUM S 

3; 256 Oi¢ PBCBEPBCB_V_CONTROLOJ=0 

: 257 051 END; '“cTear screen buffer 

iB Bd, 

: 260 0516 i Initialize oyr working pointers into the buffers. 
; 261 0517 i For now: we invalidate the initial cursor position 
3 st b218 4 to force the first update to use full cursor addressing. 
> 264 0520 2 

3 65 0521 'CURSOR_ROW = .OLD_CURSOR_ROW; 

; 08 B2 ¢ ' CURSOR COL = OLD~ CURSOR— “COL; 

: 268 0524 2 CURSOR_ROW=0; 

$ 4 32 ; CURSOR— COL=0; 

: 71 b2 7 INCR ROW FROM -FIRST ROW TO .LAST_ROW DO 

3 7 528 BEGIN ' Scan row .ROW 

: 7 0529 LOCAL PTEXT, ig 

3 74 0530 LOCAL BLANK_C 

: 275 Be 1 LOCAL PRE NPTR TA. ROW; ! Pointer position just before first character 
; 276 236 i in this row 

; 77 05 CUR_TEXT_PTR = CUR_TEXT#(. ROW-1) *.NUM_ COLS; 

> 278 0534 CURTATTR~PTR = CURTATTR+(.ROW-1)*.NUM~COLS: 

3 79 0535 NEW. TEXT_ PTR = NEW_TEXT+(.ROW-1)*.NUM_COLS; 

4 30 0337 NEW_ “ATTR- PTR = NEW_ “ATTR+(, ROW-1)*.NUM_ COLS; 

: Be 0538 LF ;NEW_LCVC. ROW] EQL 0 

: 8 0940 — LEFT=.NUM_COLS 

: 286 0348 CHARS LEFT= .NUM COLS/2; 

3 87 054 ! CHARS teFTS. UM_COLS; 

; 288 544 PRE_PTR_IN_ Rous. TUR_TEXT_PTR-1; 

+ 291 345 _See if the characteristics of this Line must change. 
ee 

: 29% 550 iF .CUR_LCVC.ROW) NEQ .NEW_LCVC.ROW) 

: 95 551 THEN 
; 38 226 ? BEGIN ! Change Line characteristics 
: 98 554 4 LOCAL BUFFER : VECTORCSMGSK_LONGEST_SEQUENCE ,BYTEJ, 

| 
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TPOT MINIMAL UPBATE - Calculate minimum 18-Se0-1984 99:35:58 SMGRTL SRE ISHG 
BUF LEN; 
EXTERNAL ROUTINE 
SMGSSOUTPUT; 


14 
Move to the desired row. 


SMGSSFIND_MIN_CURSOR_POS ( PBCB ! Pasteboard Control block 
. CURSOR_ROW, ' Current row 
-CURSOR_COL, ! Current column 
.ROW, ' Desired row 
1); ! Desired column 


‘+ 
Update our record of where we are on screen, 


CURSOR_ROW = .ROW ; 
CURSOR-COL = i ; 


BUFLEN=0; 


+ 
Get escape sequence to change the Line characteristics. 


SELECTONE .NEW_LCVC.ROW] OF 


eT 

LINE_K_WIDE): SMGSGET_TERM_DATA(DOUBLE_WIDE); 
LINE-K_UPPER_HIGH}: $SMGS$GET~TERM_DATA(DOUBLE -HIGH_ TOP); 
LINE-KLOWER-HIGH]: | $SMG$SGET-TERM-DATA(DOUBLE HIGH BOTTOM); 
CLINE~K NORMAL: SSMGSGET-TERM-DATA(SINGLE HIGH 


+ 
Output it. 


IF ,PBCBLPBCB_L_CAP_LENGTH] NEQ 0 
STATUS=SMGSSOUTPUT(PBCB, .PBCBEPBCB_L_CAP_LENGTH] 
.PBCBLPBCB-A-CAP~BUFFERJS; 

IF NOT .STATUS THEN RETURN .STATUS 


END; ! Change Line characteristics 
'¢ 


i Scan backwards looking for the largest sequence of trailing spaces. 
Set BLANK_COL to the column number of the start of such a suffix. 


BLANK_COL=.NUM_COLS+1; 
PTEXT=NEW_TEXT?. ROW®.NUM_COLS; 
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update calculation 4 Ax-11 8 
TPO MINIMAL_UPDATE - Calculate minimum “$2071 99: 38: 48 SMGRTL” 
PATTR=NEW_ATTR+.ROW*.NUM -fO8; 
DECR C FROM .NUM_ COL$ TO71 DO 
BEGIN 
PTEXT=,.PTEXT=1; 
PATTR=,PATTR=1; 
BEGIN 
BIND  TEX/_CHAR=.PTEXT : BYTE. 
ATTR_CHAR=.PATTR : BYTE 
IF _.TEXT_CHAR EQL %C° ' AND VATER. CHAR EQL 0 
THEN §LANK_COL=.C 
ELSE EXITLOOP 
END; 
END; 


WHILE .CHARS gttfT — 0 DO 
BEGIN 


IF a. ret Hates EQL .NEW_TEXT_ 
R-PTR EQL NEW ATTR— 
THEN Characters er 


* 4 

NEW-ATTR-PTR=.NEW_ATTR_PTR+ 
CHARS_LEFT=, CHARS ~ LEFT=1 
END ! eens Bos, agree 

ELSE BEGIN ! Characters disagree 


INDEX=.CUR_TEXT_PTR=CUR_TEXT; 


'+ 
\ Re-express address as a row and column number 


$MAKE_ROW_COL (INDEX, ROW, COL); 
COL=.CUR_TEXT_PTR=.PRE_PTR_IN_ROW; 


'¢ 

i at this oint, the cursor is positioned at 

i - CURSOR_ROW, "cu URSOR_COL. The first character that 

i needs to be rewritten is. at .ROW, .COL. 

i Determine a minimal update sequence to get us from 

i" where cursor is to where it needs to be to do rewrite. 


'+ 

! Set the column to ‘‘unknown"’ if we are past the end of 
!' the terminal width. We penne -faoune that the cursor 
i has become stuck in the las because the 

' user ney have done a SET PEtmigar valores command 

to shorten his logical terminal width. 


IF_.CURSOR COL GTRU .NUM_COLS 
THEN CURSOR_COL=0; 


SMGSSFIND_MIN_CURSOR_POS (¢ PBCB, ! Pasteboard Control block 


F 4 

SMIN Minimal update calculation 16-Sep-1984 00:52: AX-11 Bliss-32 V4.0-74 Page 10 ‘ 
imsie SMGSSOUTPUT MINIMAL UPDATE = Calculate minimum 18-808-1 382 90:38:88 SMGRTL SREISHEMIN 9324 ° (6) A 
; $ ~CURSOR_ROW, ! Current row a | 
; «CURSOR_COiL, ! Current column a i 
; ? : ' Desired row . | 
; i -COLS; i Desired column Br 
3 67 1) 
; of 1+ = | 
3 75 ! Update our record of where we are on screen after ; 
; 676 ' we output as much of the string as is currently in ; 
3 67 ' our buffer. 3 | 
: 8 ‘ | 
; 680 CURSOR_ROW = .ROW ; 3 | 
68} CURSOR-COL = .COL ; : | 
; 06 g + zs | 
; 684 ' Now that we are positioned at first difference, i 
; 06 5 | figure out what needs to be written. ; | 
: 08 ° : i 
3 688 + > 
3 0689 ! if we are at or past the blank pointer, then - i 
3 0690 ! just blank the remainder of the Line and exit. a i 
: Be : 7 
; O698 IF_.CURSOR COL GEQU .BLANK_COL Be 
; 694 6 THEN BEGIN  ! erase rest of Line 3 1 
3 0695 6 LOCAL STATUS; | 
: 0696 6 STATUS=ERASE LINE (PBCB); » i 
; 0697 6 IF NOT .STATOS THEN RETURN .STATUS; e i 
$ 0698 EXITLOOP = i 
: 8 4 ND; ! erase rest of Line : 
; 701 ‘+ 3 1 
3 O70 : ! Note that our Linear position within the buffer es 
; 70 ! is given by the index INDEX. yi 
; 704 ! We now calculate the Linear position of the last = 4 
; 705 ! character on this row, storing the resulting index , ; 
; 9706 i in END_ROW_INDEX. i 
0708 % 
; tat END_ROW_INDEX=$L(.ROW, .NUM_COLS); 
; 711 1+ 
; at ! We now must search between INDEX and END Row Iyogx | 
; 71 ! for the longest sequence (all of the same rendition) 
3 ne } of changed characters. | 
: He . 
; at ' Step 1: find the Longest sequence of characters | 
: 71 ! that are all of the same rendition. 
3 4 Y Put our currently desired attributes in RENDITION. | 
; ? : | 
; 7 : RENDITION = .NEW_ATTRC.INDEX); 
; 724 FINAL_INDEX = .END_ROW_INDEX+1; 
3 0725 


4 
- Calculate minimum 18-Sep-1984 99:58:38 SMGRTL  SREISAGMYN  O3oe ences (6) 


~ 
| 


i Set up FINAL_INDEX to be the first index past 
the longest such difference sequence. 


a> 
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INCR I FROM .INDEX+1 TO .END_ROW_ INDEX DO 
N ! scan for end o coene 
IF Gey TEXTE 1 EQL .CUR_TEX f.13 AND 
TTR EQL .CUR_ATTRL.1J) 
on oe ATTRC.1) NEQ .RENDITION 
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The screen now contains what we think should be there. 


$0uU 
; | 
; 7 | 
: 480 5 BEGIN ! end-of-change 
; 481 f FINAL_INDEX=.1; 
; 4 § EXITLOOP 
; 48 END; ! end-of-change 
: tee END; ! scan for end of change 
; $58 '¢ 
; ret ! We now must update the screen from .INDEX to .FINAL_INDEX-1 | 
; 4 ' post tions using the attributes stored in RENDITION. | 
i 489 i The final SPACE COUNT positions are to be erased. 
: 491 O74 | 
: re re LEN=.F INAL_INDEX=. INDEX; | 
: 494 O76 IF_.LEN GTRU 0 | 
; 495 boas 6 THEN BEGIN ! output revised sequence 
; 496 7 ¢ 6 SOUTPUT_STRING( .LEN,.NEW TEXT_PTR, RENDITION); 
: 497 O79 CURSOR_COL=.CURSOR_COL+.LEN 
; 498 754 END; ! output revised sequence 
Bo | 
; '¢ 
: i 0757 ; Update our pointers and the number of chars left. | 
: 50 759 
; 504 $760 CUR_TEXT_PTR =.CUR_TEXT_PTR+.LEN; 
; 505 0761 CURTATTRPTR =.CURTATTR-PTR+.LEN; 
; 06 076¢ NEW-TEXT-PTR =.NEW_TEXT_PTR +.LEN; 
; $0 0763 NEWATTR-PTR =.NEW-ATTR-PTR +.LEN;: 
; 509 765 CHARS_LEF T=. CHARS_LEFT=.LEN 
3 rey END ! Characters disagree 
: 769 END; ' scan 
3 4 770 END; ! scan row .ROW 
3 5 771 oe 
; . i Make the two buffers agree. 
: 520 
; 
: 
3 5 
; 6 


POPIPIPIPINNY — tw 


| 
| 
| 
| 
rr | 
! Move the cursor to the place where the user thinks it is. | 
| 
| 
} 


H 4 
1 - 


$M - :52: ° © .0- 
; os SOuTPOT RIN MAL UPBASE - Calculate minimum 1 735071382 99:35:88 SMGRTL SREISHGMIN.O3244 a0: (es 


j 
16 $ 
; } (But only if we are not already there.) 
q ' 


IF_.CU URSOR ROW] NEQ 0 


7 

7 

7 CUR_LCVC.NEW_C 

7 THEN ADJUSTED-COL= CORSOR_COL 
g 8 ELSE ADJUSTED-COL=2*.CURSOR_COL-1; 
7 
7 


Ld 
$s 
OLD_CURSOR_ROW=.CURSOR_ROW; 
a OLD_CURSOR_COL=.CURSOR_COL; 


79 SMGSSUPDATE_PHYSICAL_CURSOR(PBCB) ; 
RETURN SS$_NORMAL 
END; ! End of routine SMGSS$CUTPUT_MINIMAL_UPDATE 


ae 


LE SMGSMIN Minimal update calculation 
\1-016\ 


.EXTRN SMGSSOUTPUT, SMGSGET_TERM_DATA 
-EXTRN SMGSSPUT_SCREEN 


~PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


| 
| 
! 
i 
i 
{ 
i 
! 
i 
i 
{ 
j 
( 
i 
{ 
i 
i 
i 
( 
i 
i 
( 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


OFFC 00000 .ENTRY SMGSSOUTPUT_MINIMAL_UPDATE, Save R2,R3,R4,- ; 0408 
RS R6,R7,RB7R9,R10,R11 : 
5 FECO CE i 0000 MOVAB -320($P); SP ; 
5 04 AC 00 0000 MOVL P pace, R9 F 0451 
5A 08 a9 DO 00008 MOVL TRO), R10 : Ade 
14 AA DD O000F PUSHL 9cR19) > 045 
OC AA DD 0012 PUSHL (R10) + 0458 
34 0000 «9 06 FI 001 BBC #6, 208(R9), 1$ > 0505 
28 AA 0 6E te C saoyt MOVCS #0. (SP), #0, 40(R10), a4(SP) > 0507 
00A8B C9 04 BO $8 ; MOVw = so#1, 168(R9) : 0508 
OOAC C9 1 80 90 MOVW = #1,._:172(R9) ; 9309 
OAA (9 02 AA B80 000 MOVW acR10,, 170(R9) : 0510 
OAE (9 06 AA 80 00 MOVW (R10), 174(R9) : 0511 
000 «C9 40 8F BA 00 BICB2 #64, 268(R9) : 0512 
18 AE 04 F 1$: CLRL CURSOR_ROW > 0524 
10 AE 04 42 CLRL CURSOR co ; 05 3 
34 ag OAA C9 3C 0004 MOVZWL ORI, 2(SP) : 05 
5 As £9 ¢ 4 MOVZWL 168(R9). ROW : 
DECL =o ; 
024A 31 BRW 28$ : 
5B FF 6A2 «OE 2%: MOVAB = (R2), R11 > 0533 
08 AE : AA 3¢ 9 MOVZWL 6(R10). (SP) ; 
38 AE C4 MULL (SP), R11 F 
53 B 4 AE ¢1 ADDL (SP); R11 CUR TEXT_PTR : 
8 AE ASB OE MOVAB @24(R10)CR113, CUR_ATTR PTR : 05 
AE 08 BA4B 9F MOV @8(R10)CR11J, NEW TEXT PTR > 0535 
24 «AE 5 § ADDL R11 (SP) NEW. ; 2 6 
2c Bad 9A £8 movZBL aint »CROW),"R : 0 
1C AE 08 AE 06 7F MOVL (SP), CHARS_LEFT > 0540 
06 11 00084 BRB 4$ : 


> > | 
oo 
we 


- Calculate minimum ib-se Saat 99: 38; 48 ShGRTL SRE Shem IN O3o0% oe (3 


0 i 3: DIVL3 ne (SP) CHARS LEFT 3 054 : 
fFOA : MOVAB ir’; PRE : O34 : 
30 BAK cHPB 948 (R16) fr ROO). TRaIN=ROw : 0550 : 

00 : BRW 13$ : ; 

dD A S$ PUSHL 4 ; 0565 : 

DD C PUSHL : 368 ; 

18 AE DD PUSHL CURSOR. COL : 056 : 
24 AE DD OOOA PUSHL  CURSOR-ROW : 366 : 
DD OOOA4 PUSHL : 056 ; 

F Ab CALL SMGSSF-IND MIN_CURSOR_POS : ; 

D AB MOVL Rou, ¢ R_ROW 3; 0575 ; 

D AF MOVL sf CURSOR. ROL ; 376 ; 

4 0008 cLRL BUFLEN + 057 ; 

2c BAS2 9A 08 MOVZBL 844(R109 CROW, RO : 05 ; 

3 1 OOOBA CMPB RO, #1 : 05 : 

12 00080 BNEQ : ; 
oOorc 3669 «OD 6 BF TSTL 52(R9) : : 

6— 1 C BEQL $ : : 

C AE p4 00¢ CLRL _—sINPUT_ARGS ; : 

¢ AE F 000C PUSHAB INPUT-ARGS : ; 

01 . € pp 00CB PUSHL O(R9) : ; 

108 C9 9F OOOCF PUSHAB 264(R9) : : 

9100 9 OF 9003 PUSHAB 256(R9) : : 

1CE 8F 3¢ 0000 MOVZWL itty 28(SP) : : 

1 00000 BRB 11$ : : 

3 91 OOODF 6$ CMPBeéRO, #2 : 0587 : 

12 QO0E2 BNEQ 3 : 3 

OOFC C9 D5 OO0ES TSTL é 2(R9) : ; 

49 13 000E8 BEQL $ : ; 

C AE D4 OOOEA CLRL INPUT_ARGS : ; 
¢ AE 9F OOOED PUSHAB NPUT ARGS ; 
0104 C9 DD 000FO PUSHL  260(R9) : 
0108 9 3 OOFs PUSHAB 264(R9) F 
4 0 c9 F OOOF8 PUSHAB 256(R9) ; 
1cD «oF OCO3C dor MOVZWL #461, SP) ; 

4D 11 001 BRB 11$ : 

50 91 00104 7$: CMPB RO, #3 : 0588 

20 12 00107 BNEQ ; 

OOF C c9 D oi TSTL 2(R9) : 
4 1 10D BEQL $ : 
C AE p4 010F CLRL _—sINPUT_ARGS ; 
C AE OF O12 PUSHAB INPUT "ARG ; 
1046 «C bb Oi, PUSHL 0(R9) ; 
1 C9 OF 00119 PUSHAB 264(R9) ; 
10 9 3 11D PUSHAB G(R9) ; 
1¢C «= BFS 3: 00121 MOVZWL #460, 28(SP) ; 
8 11 00127 BRB 11$ : 

; 129 8$: TSTL = =R > 0589 
6 128 BNEQ =‘ F 
OOF C f p 1 TSTL : (RO) : 
é 1 BNEQ 0 ; 
0108 ¢ p 133 9$: CLAL is ; 
A 11 1 BRB $ 3 
C AE p4 139 10S: CLRL INPUT _A RGS : 
C AE SF 0013C PUSHAB Juput “ARGS F 
0104 C9 dD 0013F PUSHL  260(R9) ; 


SMIN Minimal w ei alculation a AX-11 Blisg-32 V4.0-74 Pa 14 
; 16 SMGSSOUTPUT MINIMAL _UPDATE = Calculate minimum 1 ~$20-1984 9¢: 36; if SMGRTL .SRCISMGMIN Ni b3o0% 9 6) 
F 0014 PUSHAB 4(R9) : 
gas : tte a i 3 1 
1c AE ¢ 001 ; seth 4, "28(SP) : 
i¢ F 00151 118 : 
000000006 oor re § aa eas T_TERM_DATA ; 
8° eB F gles S sith $3- “* : 
50 0108 £9 09 163 128: § MOVL 264(R9), RO + 0596 
13 001 BEQL ; 
0104 DD 0016A PUSHL  260(R9) : 9599 
DD 001 PUSHL R + 0598 
DD 001 PUSHL R : 
000000996 00 F 7 CALLS ’ , SNGSSOUTPUT : 
05 38 AE €8 0017D BLBS OTATUS. 13$ + 0600 
AE BO \ MOVL STATUS, RO : 
54 08 A 01 C1 00186 13S: ADDL 3 #1, 8(SP), BLANK_COL + 0610 
50 § 08 A c3 1 MULLS 8(SP), ROW, RO ; 0611 
Oc AE 08 BAG f o1 OV ag(Ri0) CRO} PTEXT : 
51 6E 50 Ci 00196 ADDL3 RO, (SP), PATT : 0612 
0 08 AE 1 C1 019A ADDLS #1. B(SPS, C ; 061 
2 11 0019F BRB 15§ : 
OC AE 07 OO1A1 14%: BECL  PTEXT + 0615 
51 07 O01A4 DECL PATT + 0616 
20 0c BE 91 0016 CMPB ss @PTEXT, #32 + 0620 
A 12 OO1AA BNEQ 16$ : 
1 95 OO1AC TST8 (PATTR) ; 
12 001 BNEQ =s-«*16 ; 
54 D0 001B MOVL C, BLANK_COL $ 0621 
éB F5 00183 15$:  SOBGTR C. 14$ ; 06 3 
1c AE OD 0186 16$: TSTL  CHARS_LEFT + 0626 
03 12 0018 BNEG  18$ ; 
00E1 ; 1BB 17$:  BRW 28$ F 
20 BE $3 91 i 18$: CMP (CUR. TEXT_PTR), @NEW_TEXT_PTR : 0628 
24 BE 28 if 1¢ CMPB acuR. ATTR_PTR, @NEW_ATTR_PTR + 0629 
10 12 001C9 BNEQ 1 ; 
53 06 001CB INCL § CUR_TEXT_PTR + 0631 
8 AE 06 O01C INCL  CURTATTR™PTR : 06 ; 
AE 06 0010 INCL NEW TEXT"PTR : 06 
4 AE 6 1D INCL  NEWTATTR7PTR : 06 
C AE p 106 DECL CHARS _L F > 0635 
DB 1D BRB 6$ ; 
56 53 04 AE C3 001DB 19%:  SUBL 4 (SP) CUR. TEXT_PTR, INDEX > 0639 
30 AE 55 C3 OO1E SUBL Pfr NOROW. °C CUR_TEXT_PTR, COL : 0647 
08 AE 10 A pi 1€ CMPL PRE SOR ats §p) : 0665 
03 18 OO1EA BLEGU ; 
10 AE D4 QO1EC CLRL  CURSOR_COL ; 
30 AE DD OO1EF 208: PUSHL COL ; 06 
52 DD OO1F PUSHL ROW : 067 
18 AE DD OO1F PUSHL CURSOR, COL ; 679 
24 AF DD OO1F PUSHL  CURSOR“ROW : 066 
0000v CF 6 3 ft CALS SMGSSF IND MIN_CURSCR_POS con 
8 AE 3 D8 201 MOVL ROU. CURSOR_ROW + 0680 


le ll 


33 


Be Pe Se Se Be Se Be Be Be Ss Se Se Se Se Ge Se Se Ge Fe Se He Se SH SH He Se Se FH Se Se OHS Se Oe Oe Se Oe OHS Se Ge Se Ge Se Se Se SH SH ae SH Se See ee Se Se ee 


a on fn fe oe ee ee Oe en en en Oe ROO OP OR OR OR ORO ODOR OR OR ORO 


:$2: AX-11 Blisg-32_V4.0-74 Page 15 
: Lation eo 4 99:36: RCISMGMIN.B32; (6) 
; ap SmCSSOUTPUT NINIAAL-UPBATE - Calculate minimum if: 38 1982 9938; 4 ec’ ses 
met oO OD ; CHL i SOR COL. “BLANK_COL : 
FF iis ‘owe! 
PB INE 
woe : E : 6185 ae Use 7s ; 0697 
Be OOgtA Stet p) ; 0709 
28 “ 55 0 , 8 tes ADDL md, mi "i Ende ROW_IMDEX d ars : } 
© 80553 MOV RO], RENDITION 
aS wet t novi cinnéxstn03, pent i 0734 : 3 
01 A MOV ; 0731 ; 4 
14 06 MOV. NDEX: 1 : | 
eh ae ee ors} |t 
oat 08 BARd 91 9 CPE 9g(R100C1], (1)CR1) ; ms : 
B 1 : : 
; SF ee tT cates : i | 
Soma be 13 0086, BEQL 248 : 0735 i § 
1 eS ansey eet Re #0, 8" (1)ER13, RENDITION ; ; 4 
08 Beet CMPZV o, . ; : § 
2c AE 6041 8 6 BEQL = 2 INDEX + 0737 s 
57 0 00 00258 24s: ROVE FINAL. : OTe? : 
3 £3 00950 258:  ROBLEQ END-ROW INDEX, 1, 228 : 0731 : } 
D4 39 é t3 056) S08; Sua IND DEX, FINAL index’ LEN 0789 , 4 
ee AE hb b0Se8 PUSHL RENDITION ; 0752 ; ] 
2c FE FR bosses Ctra’ 2 4 
¢ oOAE DD gp PUSHL NEW_TEXT_PTR i 
* § bb o "3 PUSHES. : Ss 
2? 0D EN . s q 
? CALLS #6, SHGS$PUT_SCRE ; 
000000006 ee 8 £5 d27C iti fas Aris Ss COL 0753 } 
10 A 14 AE CO O0C7F | LEN. CUR_TERT_PTR 3 876 : 4 
; 12 AE é ° is ADDL LEN, CURTATTR-PTR : re) ; 4 
oan a eM a ut 2. 
C AE i A f ; te te CHARS LE EFT : $37 
oF} f " 28 ; 
4 AE F1 OO29F 288: ACBL 52(SP) ra : 8 
PN gg BE Ba BAK. Bh Be U8 Raves GB ERGE.RECRIRS Basen Ore) |i 
AA AD Move ; : 0779 i 
2 5 2 AA 84 MOVIL 2¢R10),, "RO 2 
VE3_ RO, @44(R10), @48(R10) er : 
sas = » $6 £0 MOVIL Bi RO 0786 S| 
0 OA C4 ADDL2 48(R10)- R ; ; 
gia ae pebodg 
50 10 Ae DO gosee HOVE —CURSOR_COL, ADJUSTED, COL ; | 
D2 298: ASHL. «AL CURSOR_COL, ADJUSTED_cOL ; 0788 e! 
1 D2 278: — ASHL ‘ a 
30 et ey DECL ADJUSTED. COL pom : | 
F BO 005D9 308: ROVU CURSOR ROW. 36(R10) 
24 AA 18 AE BO 00209 308: -ROW, 


a3 


Fi 
aegis SRCSSOUTPOT RINIRAL UPGASE. = Calculate mininun 1$-Se0-1984 99:86:58 ema Oskessaemtncoaoe Page 38 


26 «AA 10 AE 80 MOVW CURSOR_COL, 38(R10) 3 O78 
dD tte R ; 079 

0000v gf 1 fe CALL #1, SMGSSUPDATE_PHYSICAL_CURSOR 3 
0 1 A MOVL #1, RO : 0795 
ED 31$: RET 3; 0797 


; Routine Size: 750 bytes, Routine Base: _SMGSCODE + 0000 
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Mm 4 
atte ™ NGSSUPDATE PHYSICAL -CORSOR 1er8ep-1986 §8:05:58 — ESMantLoSRe SsmomiN: 83054 traf 
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de 
45 
; 

0 

0 

" 

" 

" 
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SUPDATE PHYSICAL CURSOR’ 
SUPDATE_PAYSICAL_CURSOR (P_PBCB) = 


ZSBTTL ‘SM 
GLOBAL ROUTINE SMG 
FUNCTIONAL DESCRIPTION: 
§ i This routine forces the physical cursor to move to 
e 
4 
8 
9 
0 
4 
5 


anew location specified in the WCB. 


It also updates any internal structures. 


s 
JotsTeeuds UaPeepahtstesorines Pee 
i CALLING SEQUENCE: 
ret_status.wilc.v = SMGSSUPDATE_PHYSICAL_CURSOR ( P_PBCB.rab.r) 
i FORMAL PARAMETERS: 


P_PBCB,rab.r Address of pasteboard control block 


WR OOONOUES WN OO0OW 


' 

‘ 

1 

' 

nl 

' 

.] 

' 

' 

' 

4 

] 

' 

: 

IMPLICIT INPUTS: 

WCBCWCB_W_CURR_CUR_ROW] Desired new row for physical cursor 
WCBCWCB_W_CURR_CUR_COL] Desired new col for physical cursor 
; WCBCWCB_W_OLD_CUR_ROW] Physical row where cursor now is 
WCBCWCB_W_OLD_CUR_COL] Physical col where cursor now is 
i IMPLICIT OUTPUTS: 
WCBCWCB_W_CURR_CUR_ROW] New cursor row 
WCBCWCB_W_CURR_CUR_COL] New cursor col 
WCBCWCB_W_OLD_CUR_ROW] New cursor row 
WCBCWCB_W_OLD_CUR_COL] New cursor col 
| COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
i SIDE EFFECTS: 
The cursor may move to a new physical location 
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desired location “s off the screen, 


5 
SMGSMIN mal update calculation Bes =| AX-11 $s-32 V4.0-74 3M 
1-016 SUPDATE PHYSICAL. CURSOR 14- $e: 19 38 ¢: 36; if SMGRT i°3 eS shemincg B32; 7 re (3 “ 
60: IF .OLD_CURSOR_ROW NEQ .NEW_CURSOR_ROW 
0 OR_.OLD_CURSOR_COL NEQ .NEW_CURSOR_COL 
608 THEN BEGIN 
14 
1 
' 


zs 
—-@® 


t to the nearest edge. 


IF_ .NEW_CURSOR_COL GTRU .NUM_COLS 
THEN ~NEW_CURSOR_ COL=.NUM_COLS; 
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IF_.NEW_CURSOR_ROW LSS 1 
THEN “NEW_CURSOR_ROW=1; 
IF _ .NEW_CURSOR_COL LSS 1 
THEN “NEW_CURSOR_COL=1; 
IF_.NEW_CURSOR_ROW GTRU .NUM ROWS 
THEN “NEW CURSOR _ROW=.NUM_ Rows; 
1 


88 + 
os a Physically move the cursor there. 
88 
88 SMGSS$F IND_MIN_CURSOR_POS ( 
88 ' Pasteboard control block 
88 -OLD_ €URSOR ROW, !' Current location on screen 
88 -OLD_ CURSOR— COL, 
88 -NEW> CURSOR_ROW ! Desired location 
636 88 .NEW~CURSOR~COLS; 
637 89 
638 89 END; 
639 89 
640 89 ‘+ 
yeh +4 Make the new and the old cursor positions agree. 
64 89 
644 89 OLD_CURSOR_ROW=.NEW_CURSOR_ROW; 
645 898 OLD- CURSOR— COL=.NEW_ CURSOR- “COL; 
646 0899 
647 0900 ! Special try: 
8 449 i If current line is special, mark the column as unknown. 
650 308 IF .CUR_LCVC.NEW CURSOR_ROW] NEQ 0 
651 904 THEN “OLD_ CURSOR_ coL=0; 
026 905 
65 90 RETURN SS$_NORMAL 
654 4 
655 908 END; 
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003¢ 00000 -ENTRY  SHGSSUPDATE PHYSICAL CURSOR, Save R2,R3,R4.~; 0799 
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CALLING SEQUENCE: 


FORMAL PARAMETERS: 
PBID.rl.r 
P_ROW.rl.r 
P_COL.rl.r 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 
SMG$_WRONUMARG 
SMG$_INVPAS_ID 
SMG$_INVROW 
SMG$_INVCOL 
SS$_RORMAL 

SIDE EFFECTS: 


NONE 


Od eed ed 


PHYSICAL CURS 
0 L ROUTINE SMGSSET_PAYSIC 
FUNCTIONAL DESCRIPTION: 


This routine moves the 
screen to a particular 


ret_status.wlc.v = SMGSSET_PHYSICAL_CURSOR ( PBI 


5 
1 


1$-$e0-1964 00:52:18 


R 
L.CURSOR (PBID,P_ROW,P_COL) = 


hysical cursor on a physical 
ocation. 


Pasteboard id 
The row number to move to 
The column number to move to 


number of arguments 

d pasteboard id 

Position is not within pasteboard (o 
Position is not within pasteboard (o 
Normal successful completion 
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.EXTRN SMG$_INVROW, SMG$_INVCOL 

“EXTRN SMG$ rWRONUMARG SAGS INVPAS__ ID 
“EXTRN PBD_C_CO *PaDS A_PBCB 

.EXTRN PBD-V~PB_ UAVAIL 


0099 sENTRY SMGSSET_PHYSICAL_CURSOR, Save nothing 0910 
03 1 0 beor (AP), #3 0966 
50 000000006 re #SMGS$_WRONUMARG, RO 
50 04 PBID, RO 


000000006 00 


he preety i 000000006 


CMPL Be PBD_L_COUNT 


BBS RO, PBD_V_PB_AVAIL 
#SMGS_IRVPAS"ID, Kg > 


SMIN Minimal update calculation ep- AX=-11 Oh tog -32 v4.0-7 Pp 
33} SMG$SET_PHYSICAL_CURSOR 18: ne 38 99: 36: § SMGRTL.SRCISMGMIN. 835; age 485 
; 716 6 SSMGSVALIDATE_ARGCOUNT (3,3); 

i 218 4 SSMGSGET_PBCB(.PBID,PBCB) ; 
, 0 370 WCB=.PBCBCPBCB_A_wCB); 
ee sean 
BR) 
: 7 6 976 NUM_ROWS = wCB WCB_u_NO_ROWS) WORD, 
; 7 97 NUM~COLS = WCBCWCB-W"NO-COLS WORD, 
: 728 78 CUR"ROW = WCBCWCB"W~CURR_CUR_ROW WORD, 
; , 3 0979 CUR™ COL = WCBCWCB-W~CURR~CUR~COL : WORD: 
: 731 038) IF .ROW GTRU .NUM_R 
: 4 ; 4 - “= RETURN CAC. Tuvaow: 
3 g 4 0984 THEN” RETURN SAG$_INVCOL; 
Be Be] amass 
° = Py 
: 336 0989 END 
: 740 $990 : 
08} 393 ie diatel it th if batching i ia off 
Py t 5 ‘ 
728 0998 mmediately move ere now atching is not in effect 
: 745 995 2 IF .PBCBCPBCB_L BATCH. stEVEL EQ. 0 
> 76 99 THEN BEGIN 
: 26 99 STATUS=SHCSSUPDATE SPHYSICAL _CURSOR(.PBCB); 
3 748 998 IF NOT .STATUS THEN RETURN -STATUS 
: Hs 1945 END; ! Move cursor 
: 751 1001 2 RETURN SS$_NORMAL 
; 158 1008 
: 75 1003 1 END; 
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SARIN Minimal update calculation 18-se Sep-1984 AX-11 Bliss-32 v4.0-74 i 4 
; 16 SMGSSET_PHYSICAL_CURSOR 1 ~$007 138% 99: 38; § SMGRTL.SRCJSMGMIN.B32; age 43} 
04 D RET : 
51 0000000060040 06 3$: MOVL PBD_A pacecrdd, PBCB F 
Al 0D at 8(PBCB) wCB 3; 0970 
08 Bc 02 ad FD 5 cMPzy iy 6° 2(WCB), @P_ROW + 0981 
50 000000006 &F 06 43 MOVL #SMGS$_INVROW, RO ; 0982 
oc BC 06 a0 10 FD 4$: CHPLV #0, #16, 6(WCB), @P_COL + 0983 
50 000000006 &F 06 MOVL § #SMG$_INVCOL, RO > 0984 
of BC BO 4 5$: mov aP_ROW (wCB) : 09 
38 Ni Bt B : MOVW ap 75oke acuce) : O38 
D TSTL Ven (P ; 5 
A 1 A BNEG 6 : 
1 DD C PUSHL PBCB ; 0997 
FFI3 , 1 FB $f CALLS #1 SHGSSUPDATE PHYSICAL _CURSOR ; 
0 € o7 BLBC STATUS, 7 ; 0998 
1 bo us $$ : MOVL #1, RO + 1001 
4 00079 7$: RET + 1003 


; Routine Size: 122 bytes, Routine Base: _SMGSCODE + 0368 
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update calculation 16-Sep-1984 00:52: AX-11 Bliss-32 V4.0-74 
D_MIN_CURSOR_POS = Find minimum cursor 12-808-1 382 99:36:28 SMGRTL SRE TSGMIN O3007 
ZSBTTL ‘SMGSSFIND_MIN_CURSOR_POS = Find minimum cursor pos. sequence’ 
GLOBAL ROUTINE SMGSSFIND_MIN“CURSOR_POS ( ‘ : 

P_PBCB 

LTNE_NO, 

COL_RNO 

DESTREO_LINE_NO, 

DESIRED _COL_RO 

= 


lee 
! FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 


ret_status.wlc.v = SMGSSFIND_MIN_CURSOR_POS ( 
PBCB.rab.r, 


L_NO.rl.v 
STRED_LINE_NO.rl.v, 
SIRED_COL_NO.rl.v) 
FORMAL PARAMETERS: 

P_PBCB.rab.r Address of PBCB 


LINE_NO.rl.v Current cursor Line number 
means it is unknown. 


COL_NO.rl.v Current cursor column number 
Q means it is unknown. 


DESIRED_LINE_NO.ri.v Desired cursor Line number position 
DESIRED_COL_NO.rl.v Desired cursor column number position 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 
NONE 
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nt 
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Minimal update calculation 16-Sep-1984 00:52: AX-11 Bliss-32 V4.0-74 
SHGSSF IND MIN, CURSOR. POS - Find minimum cursor 1 350-1382 99:35:38 SMGRTL.SRC SMGMIN 83224 
} BEGIN 

! BIND 

1 PBCB = .P rece : BLOCKE BYTEJ, 
1 wCB = .PBCBCPBCB_A_wCB) : BLOCKL,BYTEJ, 
1 NUM_ROWS = wcB uce WMO ROWS) : WORD, 

1 NUM_COLS = WCBLWCB_W_NO COLS : WORD 

1 CURR_TEXT = ,WCBCWCB-A-SCR_TEXT_BUF : VECTORE BYTE), 
1 CURR-ATTR = ,WCBCWCB-A-SCR-ATTR-BUF : VECTORC BYTE, 
1 LCV = ,WCBCWCB-A_LINE CHAR : VECTORE,BYTE), 
! TERM_TYPE = PBCBCPBCB_B_DEVTYPE : BYTE; 

1 LITERAL 

1 INFINITY = 1000; ! Prohibitively large number, used 

: ! to reject a sequence. 

: BUILTIN 

: EDIV; 

: LOCAL 

1 TRIAL_STRING : VECTOR CSMG$K_LONGEST_SEQUENCE BYTE), 

1 ' Buffer in which to construct string 

1 ' to be output. 

1 TS_LEN ' Current Length gf TRIAL_STRING. 

1 ADJUSTED WIDTH, i Width or width/ 

1 SET_CUR_CEN; ! Length of the general set_cursor 

1 ! sequence to reposition cursor. 


is 
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Sncsst | DPRIN  CORSOR POS Find minimum cursor 1b-Se0-1984 99:38:48 SMGRTL SREISRGMIN 324 Page 48) i 


If the current position is unknown, 
then we must use the most general sequence. 


IF .LINE_NO Fal 8 
OR .COL_AO EQL 
THEN RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO, .DESIRED_COL_NO,.LINE_NO); 

4 

4 
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General strategy is to come up wh @ sequence of characters that 

will position us to the desired Line ang olumn number in less 

characters than a set_cursor sequence w ut 

The enert<ovt sequences to get to a spec 
. <LF*s> to 


COOQDQOCOOCOOOCCOCO 
SSSSSISEE 


need. 
ic Line include: 
move down the screen. 


The short-cut sequences to get to a specific column include: 
1. <TAB> to tab-stop immediately before desired column and 
repeat a number of the current characters unt 

esired column position. 
- <TAB> to tab-stop immediately beyond desired column and 
follow that by a number of <BS's> to get to the desired column. 


l we get to 


PAA 


If at ony point the trial sequence of characters gets to be 
greater than the set_cursor sequence, abandon the effort and use the 
set_cursor sequence. 


AR unwoo 


TS_LEN = 0; ! Length of string constructed so far 


'¢ 

! Calculate what the cost of a set_cursor sequence is will be for the 

! desired Line and column number. This will give us the lower bound we 
must beat if an alternate sequence is better. 


SSMGSGET Seg HS 3 CURSOR Mea atten ee PESINED_ CO. M0) 
SET_CUR_CEN =".PBCB HJ; 


+ 
Now see if we are already on the proper Line. 


PBTB_L_CAP_LENGT 


IF .LINE_NO NEQ .DESIRED_LINE_NO 


BEGIN ! Adjust Line number 
Nein INE_NO LSS .LINE_NO 
BEGIN ! Move upward 


'¢ 

! No choice == must use peneret cursor sequencing to move 
! upward. Output eres set_cursor sequence 

' (us ng DESIRED_LINE_NO and 

; DESIRED COL_NOY and-return to caller. 


RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO,.DESIRED_COL_NO,.LINE_NO) 
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END ! Move upward 
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! Move downward 


N 

L 

vite WARNING, ! TRUE if qpenning across a wide Line 
LINES _DOWN ; ! No. of Lines down we need to move 


S33 


1 

! See if we can reach pesinee LIne wD in a number of <LF's> 
! which is less than the numbér of characters in the 

' set_cursor sooyenes- 

! We do not permit Line feed through the bottom of the scrolling 
! region, since the cursor would not be able to cross it that way 
} (and it would cause a scroll to occu 

! 
' 
! 
I 
1 


SSrsSE 


r). 
! We do not permit Line feed through a double wide (or double high) 
' Line, because in some cases, this doesn't work. In particular, 
! on a VT100, if you are in column 60, eer and Line feed down 
! through a double wide Line, when you get back to a single 
! wide line, the cursor has now gotten to column 40! 


LINES_DOWN = .DESIRED_LINE_NO = .LINE_NO; 
' 


'¢ 
! Set WIDE_WARNING to TRUE if we would cross through or into or 
from a wide Line. Double high Lines are considered to be wide. 


te ss ss 
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WIDE _WARNING=0; 
IF ge cveo NEQ 0 


18 gdeStRed LINE fe DO 


0 

I 
E_WARNING=1; 
TLOOP 


IF (.LINES DOWN LSS .SET CUR LEN) AND 
(.LINE NO + .LINES_DOON LEQU .PBCBCPBCB_W_BOT SCROLL_LINEJ 
OR .LINE_NO GTRU {PBCBCPBCB_W_BOT_SCROCL-LINEJ) AND 
= - WIDE_WARNING) 


N 
BEGIN ! Do it with <LF's> 


i Put (.LINES DOWN) <LF's> into TRIAL_STRING and set 
; TS_LEN to -CINES_DOWN. 


CHSFILL (LF, .LINES DOWN, TRIAL_STRING); 
TS_LEN = -LINES_0Ow ; 
END ! Do it™with <LF's> 
ELSE 
BEGIN ! Too far 


i Too far down or we would be crossing a lower scroll 
} boundary or a wide line -- use general set cursor sequence 


WOOOOOODOODOODOOODOODDOODODDODOOO 
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RETURN SET CURSOR(PBCB, .DESIRED LINE NO. .DESIRED_COL_NO, «LINE _NO) 
END; Too far 


32 


OK, i Move downward 
END; ! Adjust Line number 


1+ 
' Reach here when we sere constructed the minimal sequence to reach the 
: desired Line --not using general cursor addressing sequence. TS_LEN 
tells us how long that sequence is. 


IF .COL_NO NEQ .DESIRED_COL_NO 


THEN 
eadty ! Column adjustment 
LEAST COST, ! Least cost among considered strategies 
BEST_STRAT, ! Best update strategy which is better 
1 ! then general cursor posit len ing sequence. 


EX, ! Index into Sune TERY and CURR_ 
DCN_QUAD : VECTOR (2,LONG], ! Desired column number 
! as a quadword 
DELTA_COL, ! No. of columns between where we are and where 


! we want to be. 

NO_TABS, ! No. of <TAB's> to get to tab-stop before 
' DESIRED_COL_NO. 

NO_RETYPES, ! No. of chars that need to be retyped if we 
! tab to tab-stop before 

NO_BS; . from tab-stop beyond 


No. of <BS's> to get 
DESIRED_COL_NO back to DESIRED_COL_NO. 


+ 
Senserwes short-cut sequence to position to desired column 
! number, 
! If earlier on Line, 3 strategies are possible: 
1. Do it with backspaces 
2. Do it with <CR> and <TAB's> to tab-stop before followed 


i 
' 
: y retypes. 
3. Do it vith <CR> and <TAB's> to tab-stop beyond followed 
. s . 
! If Later en line, 3 strategies are possible: 
i 4. Do it with retypes. 

} 5. Do it with <TAB’s> to tab-stop before followed by 

1 
' 


retypes. 
6. Do it with <TAB's> to tab-stop after followed by <BS's>. 


' 
' Calc. no of <TAB’s> needed to get to tab-stop before 
DESIRED_COL_NO and the no. of Subsequent retypes needed. 


0 ( ZREF(8), BCN_QUADCOJ, NO_TABS, NO_RETYPES); 
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DCN_QUAD £0} = ,DESIRED_COL_NO -1; 
DCN"QUAD (1) = 0; 

EDI 
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i If terminal doesn't support tabs, 
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calculation -Sep-1984 AX-11 Bliss-32 V4.0-74 
CURSOR_POS = Find minimum cursor - a 1384 9: 36; ig SMGRTL.SR RCISHGMIN, §35: 
' or user doesn't want them 
{_then set NO_TABS to inf nity. 


wv. -PBCBCPBCB_V ABS] OR NOT .PBCBCPBCB_V_TABS) 
THEN NO_ TABS rin ITY; ys 


' 
' Calc. number of <BS's> needed if we e go to tab-stop otter 
! te COL_NO This strategy 7. followed if the 
i next tab stop is off past the 19h : of the screen. In 
that case, we make NO_BS prohibi ively large. 


IF_.LCVC.DESIRED_L 
THEN ADJUSTED= _W 
ELSE ADJUSTED-W 


a (.NO “NOBS = 8 
THEN 8 


E_™0] NEQ 0 
TA=.NUM_COLS/2 
TH=.NUM_COLS; 


LSSU ,ADJUSTED_WIDTH 
shoe PES 


14 
a Set NO_BS to infinity if the terminal does not support backspacing. 


IF NOT .PBCBCPBCB_V_BS) 
THEN NO_BS=INFINITY; 
'+ 
i In case we need to do retypes, calc. where in CURR_TEXT and 
a CURR_ATTR we need to Look. 
INDEX = $L ( .DESIRED_LINE_NO, ((.NO_TABS*8) + 1)); 
IF .DESIRED_COL_NO LEQ .COL_NO 
THEN 
etdty ! Earlier in Line 


S1_COST, S2_COST, S3_COS7; st of s ,*iretegios 
us 


' Co 

! $1: 

} $6: — then retype 
! $5: tabs then BS 


! Find the cost of stategies for moving back in line 
IF .PBCBCPBCB_V_BS) 
THEN 


eLse $1_COST = .COL_NO - .DESIRED_COL_NO ! No of <BS's> 
$1_COST=INFINITY; 
$2_COST = 1 ' For <CR> 
+ .NO_TABS por ne no. of tabs to tab-stop 


S6_COST = .NO_TABS + 1 


! Find best strategy 


a a kt td tt ot ot = ot I I I FI OOD 


Rofonoty — 2 ts 2 OOO Oo 


WANA AAA AAA AAA AAAI 


SP APA MAI 


from current position 


! before 
+ .NO_RETYPES;! For no. of retypes 


For no. of tabs to tab-stop 


= ! after from current position 
+ .NO_BS; ! For no. of <BS's> 
eisee™ ! Tabbing forward is possible 
BEGIN ! Tabping forward not possible 
S5_COST = INFINITY; ' Set to prohibitive value 
$6 COST = INFINITY; ! Set to prohibitive value 
END; ! Tabbing forward not possible 


nN 5 
MGSMIN Minimal update calculation 16-Sep-1984 00:52: AX-11 Bliss-32 V4.0-7 
mote SMCSSFIND MIN CURSOR POS © Find minimum cursor Jhesepet9ne $ei0S.e8 — Vements tke sshemln O35 
: ! } 1 : + .NO_LRETYPES; ! For no. of retypes 
:1 1 if 4 $3_COST = 1 ' For <CR> 
5 ! ! 1 ? + .NO_TABS + 1 } 4 ay of tabs to tab-stop 
: | after 
: i a ! i§ ? + .NO_BS; ! For no. of <BS's> 
; i th ? 4 ! Find best strategy for moving backward in Line 
3 1378 ; § 2 BEST_STRAT = 1; LEAST_COST = .S$1_COST; 
: 107 1325 4 IF .$2_COST LSS .LEAST_COST THEN 
: 1975 i $ ? BEGIN BEST. STRAT = 9s LEAST_COST = .S2_COST; END; 
: 1081 1 8 4 IF .S$3_COST LSS .LEAST_COST THEN 
3 1086 1 4 BEGIN BEST_STRAT =3 ; LEAST_COST = .S3_COST; END; 
3: 108 1330 4 END ! Earlier Tn Line 
: 1088 i 3 ELSE 
> 108 1 
3 1087 1334 4 BEGIN !' Later in Line 
3 1088 1335 4 LOCAL 
; 2 ! § 2 $4_COST, S5_COST, S6_COST; ! Cost of strategies 
3 199) ' $ ? ! Find costs of strategies for moving forward in Line 
; 1098 } rt ? S4_COST = .DESIRED_COL_NO = .COL_NO; ! For just retypes 
; 1095 1 4g 4 IF (.NO_TABS * 8)+1 GTR .COL_NO_AND .PBCBCPBCB_V_TABS) 
; 1398 ’ rh 2 — NOT .PBCBCPBCB_V_NOTABS) 
; ! : a2 eceis ! Tabbing forward is possible 
3 i 0 ' ‘3 uma T : VECTOR C2,LONG], ! COL_NO as quadword 
: 9 1349 ; NEW"NO-RETYPES; 
: 110 1351 COL_QUAD fo = .COL.NO - 1; 
3 110 1 § 3 COL_QUAD [1J = 0; 
s 3 1 EDIV (ZREF (8), COL_QUAD CO], NEW_NO_TABS, NEW_NO_RETYPES); 
71 1354 5 NO_TABS = .NO_TABS "= .NEW_NO_TABS; 
3 1 1355 5 S5_COST = .NO_TABS "For no. of tabs to tab-stop 
| 1389 ; 
:1 1358 
; 1359 
7 1361 
. 1869 § 
‘ es 
:1 1 6 
3: 1 1 4 
3 7 1 3 4 
3; 1 1 4 
3 1 1370 4 
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e calculation 16-se -1984 00:52: AX-11 Bliss-32 V4.0-74 P 
-MIN_CURSOR_POS = Find minimum cursor 1 ~3007 138% 99:36:28 EOMGRTL SRC ISMGMIN. B32; age 433 
BEST_STRAT = 4; LEAST_COST = .$4_COST; 


IF .$5_COST $1 .cost THEN 
BEGIN a T = 5; LEAST COST = .S5_COST; END; 
ST_COST THEN 
3 T = 6; LEAST_COST = .S6_COST; END; 
a in line 


IF_.TS_LEN + .LEAST_COST GTR .SET_CUR_LEN 
THEN 


A 
6 A 
A 
A 


* 
oe 
* 
° 
o 
e 
. 
. 
. 
o 
. 
* 
. 
. 
. 
o 
. 
* 


BEGIN ! Abandon effort 
RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO, .DESIRED_COL_NO,.LINE_NO) 
END; ' Abandon effort 


CASE .BEST_STRAT FROM 1 TO 6 OF 


C1]:BEGIN ! Backspaces only. 
NO_BS = .COL_NO = .DESIRED_COL_NO ; 
CHSFILL ( BS? .NO_BS, TRIAC_STRING C.TS_LENJ); 
TS_LEN = .TS_LEN # .NO_BS; 
END; ! Backspace 


C23:BEGIN ! <CR>, <TAB's> to tab-stop before, retypes. 


+ 

! If there are actually characters to be retyped and 

! attributes are involved, give up and resort to general 
! cursor positioning sequence. 

! It will cost us too much to select-graphic-rendition 
and undo select graphic rendition. 


only. 


IF .NO_RETYPES NEQ 0 AND 
CHSTOMPARE (0, 0 ' len, addr 
NOLRETYPES, CURR ATTRC. INDEX], 

)NEQO 


THEN 
RETURN SET_CURSOR(PBCB, .OESIRED_LINE_NO, .DESIRED_COL_NO,.LINE_NO); 


TRIAL_STRING C.TS_LEN] = CR; 
S_LEN = .TS_LEN ? 1; 
CHSFILL ( TAB, .NO_TABS, TRIAL_STRING C.TS_LEN)); 
TS_LEN = .TS_LEN +7.NO_fABS; 
CHSMOVE ( .NO_RETYPES CURR”TEXT C. INDEX), 
TRING C.TS"LENI); 
TS LEN =. + .NO_RETYPES; 
ENB; ! <CR>, <TAB's> to tab-stop before, retypes. 


C3):BEGIN ! <CR>, We Sy to tab-stop after, <BS's> 
I STRING CetSot NJ = CR; 


DPIAAQREQqEQRAEA MII & BPP PEE EE PW WI ronopononorp 


-am mm 


TAB, .NO_TABS + 1, TRIAL_STRING C.TS_LEN)); 

N +7.NO_TABS + 1; 
.NO_BS, TRIAL_STRING C.TS_LEN]); 

EN * .NO_BS; 


ee ee ec ee ee ce me a ee ce ce ce cm em ee ee De ee ee ee ee ee ae a ed ee ed ed od 
a ee ee ees 
ee ce me a ce ee ee ee ee ee ee ee ce ee ee ee ee ee ce ee ee el el ce ce ee ee ce eel ce ee cee ce ee ee cl ee el ee ee ee ce et ee es ee 
oP oP oP oP oe oe ee PP ot oo ot ot ot ot ot ot et et et et et et et ot et ot ot ot ot ot |”, | ot ot et on et et et et et 


SSAA SRAN VSS SSAA IS SONS AF av OOo NON Pty ODS USM OO DOS OOS 


te et ee 


(— ay rc 


C5]:BEGIN ! <TAB's> to tab-stop before, retypes. 


+ 

' If there are actually characters to be retyped and 

! attributes are involved, give up and resort to general 
' cursor positioning sequence. 

! It will cost us too much to select-graphic-rendition 
and undo select graphic rendition. 


oe ee re 


WAAAY 
NOUS UN 20 OBNOUE WN OC OONOUSWN—OOON 


IF .NO_RETYPES NEQ 0 AND 


MOPIPOPOPOPOPOPOPoPyofnonofnorfnony» 


6 
MGSMIN inimal update calculation 1b-5e -1984 00:52: AX-11 Bliss-32 V4.0-74 Page 33 
mote MGSSF IND MIN. CURSOR. POS - Find minimum cursor 1 ~300 71382 90:35:88 ANGRTL SREISRGMYN O3204 . 33 ( 
' 1 $ END; ! <CR>, <TAB's> to tab-stop after, <BS's> : / 
1 5 : (4]:BEGIN ! Retypes only. ; i 
185 4 14 7] 
1 § 4 ! If there are actually characters to be et ig and ; 1 
1 4 ' attributes are involved, give up and resort to general ; | 
188 4 ' cursor positioning sequence. . 4 
189 4 !' It will cost us too much to select-graphic-rendition ; 
190 4 i_and undo select graphic rendition. : ! 
19 4 : 1 
198 4 NO_RETYPES = .DESIRED_COL_NO = .COL_NO; :] 
194 44 INDEX = $L ( ,DESIRED-LINE_NO, :COL=NOS ; 
195 44 IF .NO_RETYPES NEQ AND ‘ 
196 44 CHSTOMPARE (0, 0 1 len, addr : 
197 44 NO_RETYPES, CURR_ATTRE. INDEX], : 
198 44 t fall i] 
199 44 ) NEQ 0 : 
201 re RETURN SET_CURSOR(PBCB,.DESIRED_LINE_NO,.DESIRED_COL_NO,.LINE_NO); 
08 45 CHSMOVE ( .NO_RETYPES cuRR TEXT C. INDEX], 
04 45 TRIAL STRING E.TS"LENJ); 
05 45 TS_LEN = .TS_LEN + .NO_RETYPES; 
& END; ! Retypes only: 
45 
45 
45 
45 
45 
46 
46 
46 
46 
de 
46 CHSTOMPARE (0, 0 ' len, addr 
46 NO_RETYPES CURR_ATTRC. INDEX), 
46 6 r fill 
rf} ) NEQ 0 

4 


THEN 
RETURN SET_CURSOR(PBCB, .DESIRED_LINE_NO,.DESIRED_COL_NO,.LINE_NO); 


CHSFILL ( TAB, .NO_TABS, TRIAL_STRING C.TS_LENJ); 

TS_LEN = .TS_LEN +7.NO_ TABS; 

CHSMOVE ( .NO_RETYPE CURR TEXT C. INDEX), 
TRIAL_STRING C.TS7LENJ); 


POMIPIPOPOPOPOPY 


MOMOIPONIPOPPOPOPON 


ee ee ee ee ee ee ee ee ee ee ee ee 
Foy ay ot at at at ot tt et 


Pe oe le le ee PY oY oe ot ot ot ot ot ot et ee eh ee ta 


Qoco cD 0D 0D 


TS_LEN = .TS_LER + .NO_RETYPES; 

END; ! UTRBY s> to tab-stop before, retypes. 
(6]:BEGIN ! <TAB's> to tab-stop after, <BS's>. 

CHSFILL ( TAB, .NO_TABS + 1 PTRIAL. STRING C.TS_LENJ); 

TS_LEN = .TS_LEN #~.NO_TABS + 1; 

CHSFILL (BS; .NO_BS, TRIAL_STRING C.TS_LEN)); 

TS_LEN = .TS_LEN * .NO_BS; 


dD 6 
MGSMIN Minimal update calculation 16-Sep-1984 00:52: AX-11 Bliss-32 V4.0-74 P 4 a 
aeoie SMGSSFIND MIN, CURSOR. POS - Find minimum cursor 1o-g0P 138 90:38:58 AMGATL SREISRGMIN: B3ee age 43 26 
: 1238 1485 END; ! <TAB's> to tab-stop after, <BS's>. 
: 1239 14 § TES; ' 
; 1240 14 END; ! Column adjustment 
: 1241 14 
3; 3 rs 14 + 
3: 124 1490 ' At this point in the code we have a proper sequence of characters to 
> 1244 1491 ' reposition the cursor from oh UNG WO/ 40 -NO to .DESIRED_LINE_NO/ 
>: 12465 1336 ! ,DESIRED_COL_NO with a relatively minimum number of characters. 
3 3 re 149 ' This sequence of characters is contained in TRIAL_STRING and its 
3: 124 1494 ! Length is contained in .TS_LEN 
: 1248 1495 ! We output this string to the screen. 
te 
3 } 2) 1638 SOUTPUT_STRING(.TS_LEN, TRIAL_STRING,O); 
31 38 1500 2 RETURN SS$_NORMAL 
> 1254 1501 
3 1255 1502 END; ! End of routine SMG$$FIND_MIN_CURSOR_POS 
OFFC 00000 ENTRY SMGSSFIND_MIN_CURSOR_POS, Save R2,R3,R4,R5,-; 1005 
R6,R7,RB,RI,RTO,R11 : 
5E FEES CE 9€ 0000 MOVAB -280($P), SP : 
04 at DD 0000 PUSH P_PBCB : 1059 
50 6E 08 C1 QOO0A ADDL #8, (SP), RO : 1060 
58 60 D 90005 MOVL (RO), R11 : 
08 aC OD 0011 TSTL LiNE_NO 3; 1091 
7D 13 00014 BEQL 3 
0c a b8 00016 TSTL GOL_NO : 1092 
78 13 00019 BEQL $ 3 
57 04 pie CLRL TS LEN : 1112 
50 6E OOOOOOFC 8F C1 tt ADDL3 #252, (SP), RO : 1120 
60 05 000 STL (RO) : 
ge 12 00027 NEQ 1$ 3 
52 6E 00000108 F C1 00029 ADDL3 #264, (SP), R2 : 
62 04 00031 CLRL (R2) : 
4C 11 00033 BRB 2$ 3 
10 AE 02 0 0035 1$: MOVL #2, INPUT_ARGS 3 
14 AE 10 AC 70 00039 MOVG  DESIRED_LINE_NO, INPUT_ARGS+4 ; 
10 AE 9F 000 f SH INPUT LAR : 
53 04 AE 00000104 4 C1 Sf ADDL3 “60 » 4¢(SP), R3 3 
DD 4A PUSH (R3) 3 
52 08 AE 00000108 F Cl 4 ADDL #264, B(SP), R2 3 
2 oD : PUSH R ; 
50 0c AE 00000100 re ADDL #256, 12(SP), RO : 
0 OD 6 PUSHL R 3 
18 AE 023A F 3C MOVZ2WL #570, 24(SP) 3 
18 AE 99F USHAB $353 ; 
50 14 AE OO00000FC F Cl B ADDL3 #252, 20(SP), RO : 
0 OD 4 PUSHL R 3 
000000006 89 8 Fe 76 CALLS @ SRGSGET TERADATA 3 
Fs i BLBS STATUS, ; 
08 AE 62 00 1 28: MOVL (R2), SET_CUR_LEN : 1121 
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SMIN Minimal update calculation 18- -1984 00:52: AX-1 - -0- 
at SMGSSFIND MIN CURSOR_POS = Find minimum cursor 1 30071382 99:38:48 SMGRTLe SREISMOMIN: 9324 Page 13) 


00D 008A 00236 3 - 78. ; 
- 7 e™ é 
4$-27$.- : | 
3-558" Sea 
54 146 ac ¢3 A 28$:  SUBL3 DESIRED COL_NO, R4, NO_BS + 1389) 
58 88 6E is 05 S i Move ob (SPY, #8, NO_BS, aB(SP) : 1359 
00¢A 31 46 BRW 45$ + 1391 
3 D 49 29%: —‘TSTL No RETYPES + 1404 
Fi by 0 p05en ae ee + 1406 
59 00 00000000 3 8 BD p CMPCS #0, a#*x00000000, #0, NO_RETYPES, @24(R11)- : 
18 BB4A NDEX) ; 
3 1A ¢ BGTRU : 
54 1 09 SBWC OO, RG : 
4 D 61 30$: TSTL R& + 1408 
op 63 31$: BNE 398 : 
08 BE p 9 6 2$: move 3, a8 (SP) : 1412 
56 09 6E ae okt oe 0 § MOVCS #07 (SP), #9, NO_TABS, TRIAL_STRINGCTS_LEN] ; 1414 
76 «11 § 7 BRB ais + 1415 
08 BE gp 90 00 75 33$: MOVB #13, a8(SP) : 142¢ 
p6 027 INCL  TS_LEN : 14 
50 01 Ab 9E 00278 MOV 1(R6), RO + 1424 
50 09 6E ~ a 2c 0 ir movcS #0, (SP), #9, RO, TRIAL_STRINGCTS_LENJ : 
7D 11 00287 BRB 44$ : 1425 
59 16 AC 54 €3 00289 34$: SUBL3 R4 DESIRED COL NO, NO_RETYPES : 1440 
A FF aade 9E 0028 MOVAB -1(R4)C(R2), INDEX + 1441 
59 05 0029 TSTL NO_RETYPES + 1442 
18 13 0029 BEQL ; 
54 o1 DO 0029 MOVL #1, R4 + 1444 
59 00 00000000 9F 0 2D 0029A CMPCS #0, a#*X00000000, #0, NO_RETYPES, @24(R11)- ; 
18 BB4A 0 A3 NDEX] ; 
3 1A Mb BGTRU ; 
54 1 09 002A SBWC OO, RG F 
4 D5 OO2AB 35S TSTL = RG + 1446 
5 1 0 AD BNEG 39% : 
08 BE 14 BB4A 9 <8 AF 36$: moves NO_RETYPES, @20(R11)CINDEX], a8(SP) : 1451 
§ p 88 37$: TSTL NO_RETYPES + 146 
8 BA BEQL 408 ; 
54 1 p BC MOVL #1, R4 + 1467 
00 00000000 9F 0 2D 00eBF CMPCS #0, a&#*xX00000000, #0, NO_RETYPES, @24(R11)- : 
18 BB4A C8 NDEX ; 
3 1A 002CB BGTRU F 
54 1 09 002¢ SBWC OCW, RG ; 
4 D3 38$: TSTL R4 + 1469 
10 D BEQL 408 ; 
08 AC pp 39$:  PUSHL LINE_NO > 1471 
7E 10 AC 70 00207 MOVO DESIRED_LINE_NO, -(SP) ; 
0c AE DD 00208 PUSHL  12(SP) ; 
0000v CF 0 FB a CALLS #4, SET_CURSOR ; 
6E 00 yi £4 408:  MOVCS #0, (SP), #9, NO_TABS, a8(SP) > 1473 
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SMIN Minimal update calculation ep 4 AX-11 Bliss-32 V4.0-74 Pa 8 
; 16 MGSSF IND MIN, CURSOR. POS = Find minimum cursor if: 3 e0-1984 99: 36: 4 SMGRTL.SR Reis SHGMIN NiB3084 943 
08 34 : 
57 £0 B41$: ADDL LEN + 1474 
1C AEG? 14 BB4A EE MOV NOCRETTBES, @20(R11)CINDEX], TRIAL_STRING- : 1476 
57 9 : 6 42$:  ADDL2 No ak frees, TS_LEN + 1477 
F BRB $ + 1386 
50 01 A6 9E O02FB 43$: MOV 1(R6) + 1481 
50 09 bE 00 2C OOFF movcS #0, Lgphe #9, RO, a8(SP) : 
57 88 need E 44$: MOVAR 1(NO_TABS)CTS_LENJ, TS_LEN : 1482 
+t.) 08 bE “ neo) ¢ movcS #0, TSP), #8,~NO_BS, TRIAL_STRINGCTS_LEN] : 148 
57 8 CO 00313 45$: ADDL2 NO_BS, TS_LEN : 1484 
— 7C 18 46$:  CLRO  =(SP) : 1498 
7E D4 0031 CLRL ss = (SP) : 
28 «AE OOF OO31A PUSHAB TRIAL_STRING ; 
57 DD 1D PUSHL TS_LER 3 
14 AE DD OO31F PUSHL  20TSP) ; 
000000006 9 6 F : CALLS #6, SMGSSPUT_SCREEN : 
£ BLBC STATUS, 47$ : 
0 1 00 0032c MOVL #1, RO + 1500 
4 OO32F 47$: RET : 1502 


; Routine Size: 816 bytes, Routine Base: _SMGSCODE + 03E2 


re 
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6 
Minimal ate calculation b- ep-1984 00:52: AX-11 Bliss-32 V4.0-74 Page 39 
SET CURSOR = Generate set-cursor sequence ° Haat ri 99:38:48 SMGRTL. RCISMGMIN.B32; ’ “as eM 
3; 1257 1 1 SSBTTL "FET _GuRsoR = Generate set-cursor sequence’ ; 
31 1504 1 ROUTINE SETICURSOR ( ; 
+s 1505} P_PBCB 
; 1 DESIRED_LINE NO, ; 
i 196 1507 1 DESIRED-COL_AO, : 
:1 1 1 CURRENT ~ROW : 
3 1 1 1 d= 3 
3 1 1510 1 !4¢ 3 
3 : 5 ! ! } FUNCTIONAL DESCRIPTION: : 
:1 € 1513 1 | Routine SET_CURSOR constructs the general set cursor : 
; 126 1514 1! gequence to position to .DESIRED_LINE_NO/.DESIRED_COL_NO and outputs ; 
3 : $ : 1 ! t to the screen. : 
; nt 1? i CALLING SEQUENCE: ; 
: 12? 1 15 1; ret_status.wic.v = SET_CURSOR ( P_PBCB.rab.r, ; 
3 1974 1520 1 } DESIRED LINE NO.rl.v, ; 
: 1275 13 ee DESIRED_COL_AO.rl.v, : 
; ' f ; § : CURRENT_ROW-rl.v) ; 
: ! f 13 ; FORMAL PARAMETERS: : 
; 1 80 13 $ P_PBCB.rab.r Address of PBCB : 
: 1 Ht 1 : : DESIRED_LINE_NO.rl.v Desired cursor Line number position : 
: 1 Se 13 ? : DESIRED_COL_NO.rl.v Desired cursor column number position : 
:1 Hy] 13 ¢ 1! CURRENT_ROW.rl.v Current row (0 means unknown) : 
3 ; 44 13 : This matters if we are on a wide row. : 
: ! 89 13 5 IMPLICIT INPUTS: : 
Ho yj ; 
; $8 1339 { IMPLICIT OUTPUTS: ; 
; 1295 1341 1 NONE 3 
:1 39 1848 1 ' COMPLETION STATUS: ; 
3 1298 1349 1! 3 
: 1299 1545 1! SS$_NORMAL Normal successful completion : 
; ! ! r+) ' } errors from SMGSSOUTPUT : 
:1 é 1548 1 | SIDE EFFECTS: ; 
3 1 1549 1! : 
; 1304 1350 1 NONE : 
; 1305 1551 1 | ; 


Page 495 
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STATUS; 
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K 6 
i*i0 SET-CURSOR'= Generate setcursor sequence  1e-Sepa198¢ 99:08:58 — ESmant SRE SsnGmIN- O35 


3; 131 1 '¢ 

3 1 ‘ if ue ere currentty on a double uige or high row (or if the 

3 7 1 ! possibility quists then because of bugs in the VT100 hardware, 
; : : we first position to column 1 of the desired Line. 

: 1324 1 

: 1325 1 § IF (. CURRENT_ROW Fel. 0 AND .LCVCO) NEQ 0) 

3 1 $ 1 y OR -LCVC. CURRENT_ OW] NEQ 0 

; : : THEN BEGIN ! Move to beginning of desired Line 

; 1 § 1 4g SSMGSGET_TERM_DATA(SET_CURSOR_ABS, .DESIRED_LINE_NO,1); 
.| et . 

: 1 157 i Qutput the escape sequence. 

ie Wein | claire: rntonae = 

> 1335 1859 IF .PBCBCPBCB_L_CAP_LENGTH] NEQ 0 

3 1 1580 4 THEN IN 

7 1581 4 STATUS=SMGSSOUTPUT (PBCB, .PBCBCPBCB_L_CAP_LENGTH) 
; 1338 1 : 4 .PBCBLPBCB-A_CAP—BUFFERIS; 
3; 1339 15 4 IF NOT .STATUS THEN RETURN .STATUS 

3 ' ? 12 : END; 

: 1 § 15 : END; ! Move to beginning of desired Line 

t l8ea 1388 5 ts 

; 1345 1589 i Create the appropriate escape sequence. 

2 ne SARs 

; 1348 1236 SSMGSGET_TERM_DATA(SET_CURSOR_ABS, .DESIRED_LINE_NO,.DESIRED_COL_NO); 
: } rt 1232 te 

: 1351 1395 i Qutput the escape sequence. 

: 1388 1399 5 

; 34 1398 IF ,PBCBLPBCB_L_CAP_LENGTH] NEQ 0 

:1 56 1600 STATUS=SMGS$SOUTPUT (PBCB, .PBCBCPBCB_L_CAP_LENGTH] 

; 135 1601 . PBCBCPBCB_A~CAP~BUFFERJ); 

3; 1358 16 ¢ IF NOT .STATUS THEN RETURN .STATUS 

1360 1804 abs 

: 1 1605 RETURN SS$_NORMAL 

:1 5 1809 END; ! Routine SET_CURSOR 


007¢ 00000 SET_CURSOR: 
WORD 


Save R2,R3,R4,R5,R6 


§ do0000006 90 9 ROVAB —SHOSGET TERM_DATA, R6 
Cc SUL? 6 
; AS OBS Ret MOVL =P PgcB, R2 
8 Ae 00 0001 MOVL 8TR2), RO 
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m 6 
egies Bl Patel = Eotarata cctuseraer’ sequence 1e-8Sb=138e P9:38:38 = HeNGat sae ishemtno35e4 Page 4a) 
St GB AEBS os, BEE STATUE: £8 tee 
50 01 bd OB 9S: MOVL #1, RO > 1605 
4 OOODE 10$: RET : 1607 


; Routine Size: 223 bytes, Routine Base: _SMGSCODE + 0712 
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N 6 
sa Erase te enerofeLine 1e=8eb-1984 93:09:58  Lemarte sre smomIN-B3e; 
She" ERASE-LIME o_Batas £0 endrof-Uie 
i FUNCTIONAL DESCRIPTION: 

i Outputs an erase-to-end-of-line sequence to the screen. 
i CALLING SEQUENCE: 

i ret_status.wic.v = ERASE_LINE ( P_PBCB.rab.r) 

i FORMAL PARAMETERS: 

P_PBCB.rab.r Address of PBCB 

i IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

i NONE 

i COMPLETION STATUS: 


SS$_NORMAL Normal successful completion 
errors from SMGSSOUTPUT 


i SIDE EFFECTS: 
NONE 
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MGSMIN Minimal update calculation 1b-s¢ -1984 252: AX-11 iss- 4.0-74 
tT ERASE_LI 3 - Erase to end-of-Line 1 =3007 1382 99:36:48 SMGRTL SREISHGMYN O32, Page 49 
; 1409 1650 '+ 
: 1410 1 ' Create the appropriate escape sequence. 
2 
$ 1418 + ¢ SSMGSGET_TERM_DATA(ERASE_TO_END_LINE); 
: idte 1887 § i output th 
3 ' Qutput the escape sequence. 
1219 1658 3 I- < hc 
3; 1418 165 
: 1419 1660 IF_.PBCBCPBCB_L_CAP_LENGTH] NEQ 0 
: 1420 199) THEN N 
3 1421 1 86 hich laciietamtde +1445 11 ee ThE 
+ 14 : 166 .PBCBLPBCB-A_~CAP—BUFFERJ); 
3 14 1664 IF NOT .STATUS THEN RETURN .STATUS; 
3 1424 1665 END; 
3: 1425 1998 
3 1426 166 RETURN SS$_NORMAL 
3: 1427 1668 
; 1428 1669 1 END; ! Routine ERASE_LINE 


Q00C 00000 ERASE_LINE: 
. WORD 


Save R2,R3 : 1609 
5E 10 ¢ 90002 SUBL2 #16, SP : 
52 04 AC DO 0000 MOVL P_PBCB, R2 + 1645 
OOFC C2 05 00009 TSTL  252(R25 > 1654 
09 12 0000D BNEQ =:*'1$ : 
53 0108 ce 9E O000F MOVAB 264(R2), R3 : 
63 D4 00014 CLRL = (R3) : 
2c (11 0016 BRB 2$ F 
04 AE p4 0018 1$: CLRL _—sINPUT_ARGS : 
04 AE 9F 0001B PUSHAB INPUT~ARGS ; 
104 C2 DD 0001 PUSHL GO(R3) : 
53 108 ¢ 9E 000 OVAB 4(R2), R3 ; 
DD 000 PUSHL R Z 
100 ¢ F 00029 PUSHAB 2 $(R2) ; 
10 AE 109 8F «3c 000 p MOVZWL #473, 16(SP) : 
10 AE F 000 USHAB TO<SB) ; 
OOFC C2 9F 00036 PUSHAB 252(R2) ; 
000000006 09 ' FB 6 A CALLS #6 SHGSGET_TERM_DATA ; 
E 41 BLBC STATUS, 4 : 
6 BS 44 2% TSTL  — (R3) : 1660 
1 46 BEQL 38 : 
0104 DD 0004 PUSHL 69(R2) > 166 
DD 0004C PUSHL  (R3) > 166 
DD 0004 PUSHL Re ; 
000000006 : FB CALLS #3, SMGSS$OUTPUT : 
E BLBC STATUS, 4$ + 1664 
0 1 bd A 38: MOVL #1, RO > 1667 
4 D 4$: RET + 1669 
; Routine Size: 94 bytes, Routine Base: _SMGS$CODE + 07F1 


Minimal update calculation 16-56 Sep-1984 AX-11 Bliss-32 V4.0-74 
ERASE_LINE = Erase to end-of-Line 730071382 99: 88; 48 USMGRTL SRE ISHGMIN« 83544 
; 14 ? 1670 1 END 
1879 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_SMGSCODE 2127 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
snoseese Synbols ococeese Pages Processing 
File Total Loaded Percent Mapped Time 
_8255$DUA tESNSL IBIS TAL ET .b 325] 9776 9 581 00:01.0 
-$5 55$DUA Sa 36 0 § BF RO 
“$5 53$DUA28: SmcRIC: “OB SMGLIB.L32;1 469 46 3 0:00.5 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=L1S$:SMGMIN/OBJ=O0BJ$:SMGMIN MSRC$: SMGMIN/UPDATE=(ENHS$: SMGMIN) 
2127 code + 0 data bytes 


Size: 
Run “rime 8 246.7 
essed’ Huse 

Lines/CPU Min 13 
Lexemes/CPU-Min: 1551 
poner Used: 293 pages 
Compila 


tion Complete 
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